home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / WORDADDR.MOD < prev    next >
Text File  |  1989-01-18  |  1KB  |  44 lines
  1.                                         (* Chapter 14 - Program 2 *)
  2. MODULE WordAddr;
  3.  
  4. FROM SYSTEM     IMPORT ADR,WORD,ADDRESS;
  5. FROM InOut      IMPORT WriteString,WriteCard,WriteLn;
  6.  
  7. VAR Index  : INTEGER;
  8.     CardNo : CARDINAL;
  9.     Peach  : ADDRESS;
  10.     MonoVideo[0B000H:0H]  : ARRAY[1..4000] OF CHAR;
  11.     ColorVideo[0B800H:0H] : ARRAY[1..4000] OF CHAR;
  12.  
  13. PROCEDURE PrintNumber(DatOut : WORD);
  14. VAR Temp : CARDINAL;
  15. BEGIN
  16.    WriteString("The value is ");
  17.    Temp := CARDINAL(DatOut);
  18.    WriteCard(Temp,4);
  19.    WriteLn;
  20. END PrintNumber;
  21.  
  22. BEGIN
  23.    Index := 17;
  24.    CardNo := 38;
  25.    Peach := ADR(Index);     (* Pointer to an INTEGER     *)
  26.    Peach := ADR(CardNo);    (* Pointer to a CARDINAL     *)
  27.    PrintNumber(Index);      (* Called with an INTEGER    *)
  28.    PrintNumber(CardNo);     (* Called with a CARDINAL    *)
  29.  
  30.    Peach := 0B000H:1A2H;    (* Pointer to Segment:Offset *)
  31.  
  32. END WordAddr.
  33.  
  34.  
  35.  
  36.  
  37. (* Result of execution
  38.  
  39. The value is   17
  40. The value is   38
  41.  
  42. *)
  43.  
  44.